home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 09 (1989-09)(MindCraft Publishing)(Side A).zip / Nibble Volume 10, No. 09 (1989-09)(MindCraft Publishing)(Side A).po / JEWEL.bas < prev    next >
BASIC Source File  |  1996-12-24  |  257b  |  2 lines
  1. 10  FOR X = 7676 TO 7689: READ A: POKE X,A: NEXT X: DATA 1,0,4,0,18,63,32,100,45,21,54,30,7,0: POKE 232,252: POKE 233,29: HGR2 : HPLOT 0,0: CALL 62454
  2. 20  HCOLOR=  INT( RND(1) *7) +1: FOR R = 1 TO 99: ROT= 24: SCALE= R +12: DRAW 1 AT 140,96: NEXT R: GOTO 20